Underline Property

Returns or sets the font underline style for the specified range. Read/write UnderlineStyleEnum for the ChFont and PivotFont objects; read/write Variant for the Font object (returns Null if the characters in the font do not all have the same underline style; otherwise, returns one of the UnderlineStyleEnum constants). Use the IsNull function to determine whether the return value is Null.

UnderlineStyleEnum can be one of these UnderlineStyleEnum constants.

owcUnderlineStyleDouble

owcUnderlineStyleDoubleAccounting

owcUnderlineStyleNone

owcUnderlineStyleSingle

owcUnderlineStyleSingleAccounting

expression.Underline

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds a single underline to all cell values in row 1.

Sub FormatFont()

   Dim ssConstants

   Set ssConstants = Spreadsheet1.Constants

   Spreadsheet1.Rows(1).Font.Underline = ssConstants.owcUnderlineStyleSingle

End Sub